Create or Replace Function toMdy(ymd Decimal(8,0))
       returns char(10)
       language rpgle
       deterministic
       no sql
       external name UDFDEMO1(TOMDY)
       parameter style general;

Create or Replace Function yearsActive(
          hiredate Decimal(8, 0),
          termdate Decimal(8, 0)
       )
       returns integer
       language rpgle
       not deterministic
       no sql
       external name UDFDEMO1(COUNTYEARS)
       parameter style general;

Create or Replace Function yearsActiveSql(
          hiredate Decimal(8, 0),
          termdate Decimal(8, 0)
       )
       returns integer
       language rpgle
       not deterministic
       no sql
       external name UDFDEMO1(YEARSACTIVESQL)
       parameter style sql; 